home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / texmf / tpp / Rexx / 1.preview next >
Text File  |  1994-01-05  |  266b  |  10 lines
  1. /* brings TextPlus to front (started from Preview) */
  2. options results
  3.  
  4. IF (SHOW('P', 'TextPlus')) THEN DO
  5.     ADDRESS 'TextPlus' 'ScreenToFront'
  6.     ADDRESS 'TextPlus' 'WindowToFront'
  7.     ADDRESS 'TextPlus' 'GetName'
  8.     ADDRESS 'TextPlus' 'Activate' result
  9.     END
  10.